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6-SEP=1984 11:26:2 MTMRIL L.SRCIMTHJISIGN.MAR; 1 (1). 
TITLE wegsision Jisien function 
-IDENT /1-0 ; File: MTHJISIGN.MAR 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corer 
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\ 7* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH 
15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS sof TWARE OR ANY OTHER 
B80 1 :* sa a THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
99 1 8 TRANSFERRED. 
00 18 :* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
00 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
+ 9 is CORPORATION. 
$00 ; '* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
443 7: SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
0900 é f aneteennedqueniennbnendnennennneNianeneENenienaierennE;TENNEENeEntenteet 
0000 8: 
0000 y : FACILITY: MATH LIBRARY 
0000 0 i+ 
0000 1 : ABSTRACT: 
0000 gi 3 
0000 3 
4 4 _ 
00 5 : 
0000 6 ; VERSION: 0 
0090 7 : 
4 8; : HISTORY: 
000 9; 
9000 40 ; AUTHOR: 
444 ay 3 : Jonathan M. Taylor, 14-JUL-77: Version 0 
$000 ¢§ ? MODIFIED BY: 
0000 eg 
0 46 ; 
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$8 ~SBTTL HISTORY ; Detailed Current Edit History 
0 
1 ; Edit History for Version 0 of MTHJISIGN 
g if 9 = Remove MTHSFLAG_JACKET. TNH S5-July-78 
000 4 ; 1-001 - yeaene version number and copyright notice. JBS 16-NOV-78 
000 5 ; 1-002 - Add ‘."' to the PSECT directive. JBS 22-D DEce -78 
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: INCLUDE FILES: 
: EXTERNAL SYMBOLS: 
; MACROS: 


> PSECT D ARATIONS 


ECL : 
PSECT _MTHSCODE 


: EQUATED SYMBOLS: 
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ae 
; FUNCTIONAL DESCRIPTION: 


; CALLING SEQUENCE: 
NONE 


; INPUT PARAMETERS: 
; NONE 
IMPLICIT INPUTS: 
NONE 
; OUTPUT PARAMETERS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
; COMPLETION CODES: 
NONE 


ENTRY MTHSJISIGN, “M<> 
MOVL @4(AP), RO ; RO = org! 
BLSS NEGARG ; branch if negative arg! 


; argi is non-negative, look at sign of arg2 


; SIDE EFFECTS: 

NONE 

TSTL a8 (AP) 
EXIT 


BGEQ , ; both args are positive, nothing to do 
NEGATE: 
MNEGL RO, RO 3: negate argl 
EXIT: 
RET 
3; arg is negative, check sign of arg2 
NEGARG: 
TSTL a8 (AP) 
por" NEGATE ; if arg2 positive then negate arg] 
- END 


MTHSJISIGN JISIGN function 


B-SEP=-198e 11:26:28 ERTMRTL.SREIRTMOTSION.MaR: 1 °%* 


Symbol table 
0010 R 1 
MTHSJISIGN ety pe ; 
NEGATE 00000D R 1 
peor ewocee ee scnes + 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
- ABS, 0 ( . NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_MTHSCODE itdiiata ( 28°} 9 | 9.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
IPertormance indicators ! 
Phase Page faults CPU Time Elapsed Time 
Initialization 1 00:00:00.05 00:00:01. “30 
zomnene processing 115 Op BO BN. se 00: om B3- 8 
Synbol tabl A % 0; 5; 5°00 00:09:00:08 
able sor :00:00. :00:00. 
s2 37 09:00:00: 82 00:00:01 -23 
Syabot table output $ 0 1 FOO -B 0:00:00.01 
Psect synopsis output 00:00:00.02 00:00:00.08 
Cross-reference output 0 00:00:00.00 Bo +88 +08 «88 
Assembler run totals 266 00:06:01.24 00:00:08.32 


The ye et Limit was 900 pegee: 

1328 bytes (3 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 4 non-local and 0 local symbols. 
135 source Lines were read in Pass 1, producing 10 object records in Pass 2. 

0 pages of virtual memory were used to define 0 macros. 
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Macro Library name Macros defined 
“S25SSDUAZB:(SYSLIBISTARLET.MLBs2 0 SS 0 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 
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